home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / misc_lsp.arc / ONEKEY.LSP < prev    next >
Encoding:
Text File  |  1987-11-03  |  2.1 KB  |  151 lines
  1. ;These functions allow commonly
  2. ;used commands to be executed with a
  3. ;single key stroke.
  4. ;
  5. ;Function file "KEY.LSP" - Execution command as shown
  6. ;
  7. ;Written by Christopher Conrad and Steve Brown
  8. ;
  9. ;
  10. (defun C:L ()
  11.   (command "line"))
  12.  
  13. (defun C:T ()
  14.   (command "text"))
  15.  
  16. (defun C:CI ()
  17.   (command "circle"))
  18.  
  19. (defun C:E ()
  20.   (command "erase"))
  21.  
  22. (defun C:EE ()
  23.   (command "extend"))
  24.  
  25. (defun C:TT ()
  26.   (command "trim"))
  27.  
  28. (defun C:B ()
  29.   (command "break"))
  30.  
  31. (defun C:RO ()
  32.   (command "rotate"))
  33.  
  34. (defun C:S ()
  35.   (command "stretch"))
  36.  
  37. (defun C:SC ()
  38.   (command "scale"))
  39.  
  40. (defun C:C ()
  41.   (command "copy"))
  42.  
  43. (defun C:M ()
  44.   (command "move"))
  45.  
  46. (defun C:O ()
  47.   (command "offset"))
  48.  
  49. (defun C:CC ()
  50.   (command "change"))
  51.  
  52. (defun C:PT ()
  53.   (command "point"))
  54.  
  55. (defun C:F ()
  56.   (command "fillet"))
  57.  
  58. (defun C:A ()
  59.   (command "array"))
  60.  
  61. (defun C:W ()
  62.   (command "zoom" "w"))
  63.  
  64. (defun C:PP ()
  65.   (command "pan"))
  66.  
  67. (defun C:P ()
  68.   (command "zoom" "p"))
  69.  
  70. (defun C:U ()
  71.   (command "undo" "1"))
  72.  
  73. (defun C:R ()
  74.   (command "redraw"))
  75.  
  76. (defun C:RR ()
  77.   (command "regen"))
  78.  
  79. (defun C:MM ()
  80.   (command "mirror"))
  81.  
  82. (defun C:D ()
  83.   (command "dist"))
  84.  
  85. (defun C:I ()
  86.   (command "insert"))
  87.  
  88. (defun C:LL ()
  89.   (command "list"))
  90.  
  91. (defun C:DL ()
  92.   (command "dim" "leader"))
  93.  
  94. (defun C:DV ()
  95.   (command "dim" "ver"))
  96.  
  97. (defun C:DH ()
  98.   (command "dim" "hor"))
  99.  
  100. (defun C:LS ()
  101.   (command "layer" "s"))
  102.  
  103. (defun C:LF ()
  104.   (command "layer" "f"))
  105.  
  106. (defun C:LT ()
  107.   (command "layer" "t"))
  108.  
  109. (defun C:3F ()
  110.   (COMMAND "3DFACE"))
  111.  
  112. (defun C:3L ()
  113.   (command "3DLINE"))
  114.  
  115. (defun C:OI ()
  116.   (command "OSNAP" "INT"))
  117.  
  118. (defun C:OO ()
  119.   (command "OSNAP" "OFF"))
  120.  
  121. (defun C:AX ()
  122.   (command "VPOINT" ))
  123.  
  124. (defun C:PL ()
  125.   (command "PLINE" ))
  126.  
  127. (defun C:PED ()
  128.   (command "PEDIT" ))
  129.  
  130. (defun C:V1 ()
  131.   (COMMAND "VIEW" "R" "1"))
  132.  
  133. (defun C:V2 ()
  134.   (COMMAND "VIEW" "R" "2"))
  135.  
  136. (defun C:V3 ()
  137.   (COMMAND "VIEW" "R" "3"))
  138.  
  139. (defun C:V4 ()
  140.   (COMMAND "VIEW" "R" "4"))
  141.  
  142. (defun C:ZE ()
  143.   (COMMAND "ZOOM" "E"))
  144.  
  145. (defun C:EX ()
  146.   (COMMAND "EXPLODE"))
  147.  
  148. (defun C:PO ()
  149.   (COMMAND "POINT"))
  150.  
  151.